home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Magazine / WiredWorld / WebPlug / install / Install_WebPlug < prev   
Encoding:
Text File  |  1997-11-10  |  23.9 KB  |  1,042 lines
  1. ;Install script for WebPlug version 1.2 © 1996 Esteve Boix
  2. ;This install script is © Bo Liljegren (bosse@algonet.se)
  3.  
  4. (complete 0)
  5.  
  6. ;Pure sequrity. If the Installer, by some strange reason,
  7. ; can't find the default language, it will use english
  8. (set default_lang 2)
  9.  
  10. ;=============================================================================
  11. ; Catalan strings
  12.  
  13. (if (= @language "català")
  14. (
  15. (set default_lang 1)
  16.  
  17. (set #low-user-level
  18. (cat "\nLa instal.lació de WebPlug requereix com a mínim un nivell \"Mig\" d'usuari.\n\n"
  19.      "Reengega la instal.lació i selecciona un nivell apropiat."
  20. ))
  21.  
  22. (set #ask-upgrade
  23. (cat "\nÉs una nova instal.lació o un upgrade ?\n\n"
  24.      "Upgrade vol dir reinstal.lar."
  25. ))
  26.  
  27. (set #upgr-choice-upgr
  28. (cat "Un upgrade"
  29. ))
  30.  
  31. (set #upgr-choice-new
  32. (cat "Nova instal.lació"
  33. ))
  34.  
  35. (set #which-oldfile
  36. (cat "On és el programa WebPlug ?\n(El programa, no el directori)"
  37. ))
  38.  
  39. (set #mess-oldinstaller1
  40. (cat "\nEstás usant una versió antiga del programa Installer\n(%ld.%ld)\n\n"
  41. ))
  42.  
  43. (set #mess-oldinstaller2
  44. (cat "Usa una versió més nova"
  45. ))
  46.  
  47. (set #mess-obsoletekick
  48. (cat "WebPlug requereix AmigaDOS versió 2.0 o superior.\nLa versió 3.0+ és molt recomanable"
  49. ))
  50.  
  51. (set #mess-nomui
  52. (cat "\nWebPlug requereix el MUI.\nNo he trobar la muimaster.library.\n\n"
  53.      "Ho sento. No puc continuar amb la instal.lació"
  54. ))
  55.  
  56. (set #mess-oldmui
  57. (cat "\nWebPlug requireix el MUI 3.2+.\n\n"
  58.      "Això es la muimaster.library ver 13.686\n"
  59.      "Tens la versió %ld.%ld\n\n"
  60.      "Ho sento. No puc seguir amb la instal.lació."
  61. ))
  62.  
  63. (set #which-directory
  64. (cat "On vols instal.lar el WebPlug ?\n(Es crearà un directori \"WebPlug\")"
  65. ))
  66.  
  67. (set #confirm-adddocs
  68. (cat "\n\nVols copiar la documentació (HTML) ?"
  69. ))
  70.  
  71. (set #confirm-custom-dirs
  72. (cat "\n\nVols instal.lar els directoris CustomTags i CustomStrings ?"
  73. ))
  74.  
  75. (set #which-language
  76. (cat "Quins catàlegs vols instal.lar ?"
  77. ))
  78.  
  79. (set #prompt-makemaindir
  80. (cat "Vaig a crear el directori WebPlug"
  81. ))
  82.  
  83. (set #prompt-copybrowserlinks
  84. (cat "Vaig a copiar el directori BrowserLinks"
  85. ))
  86.  
  87. (set #prompt-adddocs
  88. (cat "Vaig a copiar la documentació HTML"
  89. ))
  90.  
  91. (set #prompt-textfieldgadgetKS3
  92. (cat "Vaig a instal.lar el Textfield.gadget (OS v3.0+)"
  93. ))
  94.  
  95. (set #prompt-textfieldgadgetKS2
  96. (cat "Vaig a instal.lar el Textfield.gadget (OS v2.0+)"
  97. ))
  98.  
  99. (set #prompt-customtags
  100. (cat "Vaig a copiar el directori CustomTags"
  101. ))
  102.  
  103. (set #prompt-customstrings
  104. (cat "Vaig a copiar el directori CustomStrings"
  105. ))
  106.  
  107. (set #prompt-executable
  108. (cat "Vaig a copiar l'executable del WebPlug"
  109. ))
  110.  
  111. (set #mess-congra
  112. (cat "\nEnhorabona, WebPlug ja està instal.lat.\n\n"
  113. ))
  114.  
  115. (set #mess-docsfound
  116. (cat "La documentació és en format HTML, la\n"
  117.      "pots trobar al directori \"%s\"\n"
  118.      "Usa el teu navegador preferit per llegirla.\n"
  119.      "Comença amb el document \"WebPlug.html\"\n\n"
  120. ))
  121.  
  122. (set #mess-shareware
  123. (cat "WebPlug és Shareware.\n"
  124.      "El registre són només $10 de forma que si us plau\n"
  125.      "considera registrarte si l'uses.\n\n"
  126.      "Que el disfrutis !"
  127. ))
  128.  
  129. ))
  130.  
  131. ;=============================================================================
  132. ; English strings
  133.  
  134. (if (= @language "english")
  135. (
  136. (set default_lang 2)
  137.  
  138. (set #low-user-level
  139. (cat "\nWebPlug installation requires at least the \"Average\" user level.\n\n"
  140.      "Restart installation and select appropriate user level."
  141. ))
  142.  
  143. (set #ask-upgrade
  144. (cat "\nIs this a new installation or\n"
  145.      "an upgrade?\n\n"
  146.      "A reinstallation is equal an upgrade"
  147. ))
  148.  
  149. (set #upgr-choice-upgr
  150. (cat "An upgrade"
  151. ))
  152.  
  153. (set #upgr-choice-new
  154. (cat "New installation"
  155. ))
  156.  
  157. (set #which-oldfile
  158. (cat "\nWhere is the programme WebPlug?\n(The programme, NOT the directory WebPlug)\n"
  159. ))
  160.  
  161. (set #mess-oldinstaller1
  162. (cat "\nYou are using an old version\nof the Installer programme. (%ld.%ld)\n\n"
  163. ))
  164.  
  165. (set #mess-oldinstaller2
  166. (cat "Please use the included Installer"
  167. ))
  168.  
  169. (set #mess-obsoletekick
  170. (cat "WebPlug requires AmigaDOS version 2.0 or higher\nVersion 3.0+ is strongly recommended."
  171. ))
  172.  
  173. (set #mess-nomui
  174. (cat "\nWebPlug requires MUI.\nNo muimaster.library is found.\n\n"
  175.      "Sorry, can not continue the installation"
  176. ))
  177.  
  178. (set #mess-oldmui
  179. (cat "\nWebPlug requires MUI version 3.2 or higher.\n\n"
  180.      "That means muimaster.library ver 13.686\n"
  181.      "You have version %ld.%ld\n\n"
  182.      "Sorry, can not continue the installation"
  183. ))
  184.  
  185. (set #which-directory
  186. (cat "Where do you want to install WebPlug ?\n(A drawer named \"WebPlug\" WILL be created)"
  187. ))
  188.  
  189. (set #confirm-adddocs
  190. (cat "\n\nWould you like to install the (HTML) documentation?"
  191. ))
  192.  
  193. (set #confirm-custom-dirs
  194. (cat "\n\nWould you like to install the CustomTags and CustomStrings directories?"
  195. ))
  196.  
  197. (set #which-language
  198. (cat "\nWhich languages should be installed?\n(english is built-in)"
  199. ))
  200.  
  201. (set #prompt-makemaindir
  202. (cat "Going to create WebPlug's dir"
  203. ))
  204.  
  205. (set #prompt-copybrowserlinks
  206. (cat "Going to copy the BrowserLinks dir"
  207. ))
  208.  
  209. (set #prompt-adddocs
  210. (cat "Going to copy the (HTML) documentation"
  211. ))
  212.  
  213. (set #prompt-textfieldgadgetKS3
  214. (cat "About to install the Textfield.gadget (OS v3.0+)"
  215. ))
  216.  
  217. (set #prompt-textfieldgadgetKS2
  218. (cat "About to install the Textfield.gadget (OS v2.0+)"
  219. ))
  220.  
  221. (set #prompt-customtags
  222. (cat "About to install the CustomTags directory"
  223. ))
  224.  
  225. (set #prompt-customstrings
  226. (cat "About to install the CustomStrings directory"
  227. ))
  228.  
  229. (set #prompt-executable
  230. (cat "Going to copy WebPlug's executable"
  231. ))
  232.  
  233. (set #mess-congra
  234. (cat "\nCongratulations, WebPlug is now installed.\n\n"
  235. ))
  236.  
  237. (set #mess-docsfound
  238. (cat "The documentation is in html format and\n"
  239.      "can be found in the directory \"%s\"\n"
  240.      "Please used your favorite browser to read it.\n"
  241.      "Start with the document \"WebPlug.html\"\n\n"
  242. ))
  243.  
  244. (set #mess-shareware
  245. (cat "WebPlug is released as Shareware.\n"
  246.      "The fee is only $10, so please consider\n"
  247.      "registering it if you use it.\n\n"
  248.      "Enjoy!"
  249. ))
  250.  
  251. ))
  252.  
  253. ;=============================================================================
  254. ; Spanish strings
  255.  
  256. (if (= @language "español")
  257. (
  258. (set default_lang 4)
  259.  
  260. (set #low-user-level
  261. (cat "\nLa instalación de WebPlug requiere como mínimo un nivel \"Medio\" de usuario.\n\n"
  262.      "Reinicia la instalación y elije el nivel adecuado."
  263. ))
  264.  
  265. (set #ask-upgrade
  266. (cat "\nEsto es una instalación o un upgrade ?\n"
  267.      "Una reinstalación es un upgrade"
  268. ))
  269.  
  270. (set #upgr-choice-upgr
  271. (cat "Un upgrade"
  272. ))
  273.  
  274. (set #upgr-choice-new
  275. (cat "Nueva instalación"
  276. ))
  277.  
  278. (set #which-oldfile
  279. (cat "\nDónde está el programa WebPlug?\n(El programa, no el directorio)\n"
  280. ))
  281.  
  282. (set #mess-oldinstaller1
  283. (cat "\nEstás usando una versión antigua del Installer\n(%ld.%ld)\n\n"
  284. ))
  285.  
  286. (set #mess-oldinstaller2
  287. (cat "Usa una versión más nueva"
  288. ))
  289.  
  290. (set #mess-obsoletekick
  291. (cat "WebPlug requiere el AmigaDOS versión 2.0 o superior\nLa versión 3.0+ es muy recomendable."
  292. ))
  293.  
  294. (set #mess-nomui
  295. (cat "\nWebPlug requiriere el MUI.\nNo he encontrado la muimaster.library.\n\n"
  296.      "Lo siento. No puedo seguir con la instalación"
  297. ))
  298.  
  299. (set #mess-oldmui
  300. (cat "WebPlug requiere el MUI 3.2+.\n\n"
  301.      "Esto significa la muimaster.library ver 13.686\n"
  302.      "Tu tienes la %ld.%ld\n\n"
  303.      "Lo siento. No puedo seguir con la instalación"
  304. ))
  305.  
  306. (set #which-directory
  307. (cat "Dónde quieres instalar WebPlug ?\n(SE CREARÁ un directorio \"WebPlug\")"
  308. ))
  309.  
  310. (set #confirm-adddocs
  311. (cat "\n\nQuieres copiar la documentación (HTML) ?"
  312. ))
  313.  
  314. ;NEW_1.2!!!
  315. (set #confirm-custom-dirs
  316. (cat "\n\nWould you like to install the CustomTags and CustomStrings directories?"
  317. ))
  318.  
  319. (set #which-language
  320. ; stolen from WB3.1 intall
  321. (cat "\n¿Qué idioma quiere instalar?"
  322. ; original
  323. ;(cat "Qué catálogos quieres instalar ?"
  324. ))
  325.  
  326. (set #prompt-makemaindir
  327. (cat "Voy a crear el directorio de WebPlug"
  328. ))
  329.  
  330. (set #prompt-copybrowserlinks
  331. (cat "Voy a copiar el directorio de BrowserLinks"
  332. ))
  333.  
  334. (set #prompt-adddocs
  335. (cat "Voy a copiar la documentación HTML"
  336. ))
  337.  
  338. (set #prompt-textfieldgadgetKS3
  339. (cat "Voy a instalar el Textfield.gadget (OS v3.0+)"
  340. ))
  341.  
  342. (set #prompt-textfieldgadgetKS2
  343. (cat "Voy a instalar el Textfield.gadget (OS v2.0+)"
  344. ))
  345.  
  346. (set #prompt-customtags
  347. (cat "Voy a instalar el directori CustomTags"
  348. ))
  349.  
  350. (set #prompt-customstrings
  351. (cat "Voy a instalar el  directori CustomStrings"
  352. ))
  353.  
  354. (set #prompt-executable
  355. (cat "Voy a copiar el programa de WebPlug"
  356. ))
  357.  
  358. (set #mess-congra
  359. (cat "\nEnhorabuena, WebPlug ya está instalado.\n\n"
  360. ))
  361.  
  362. (set #mess-docsfound
  363. (cat "La documentación está en formato HTML y\n"
  364.      "la puedes encontrar en el directorio \"%s\"\n"
  365.      "Por favor, usa tu navegador favorito para leerla.\n"
  366.      "Empieza con el documento \"WebPlug.html\"\n\n"
  367. ))
  368.  
  369. (set #mess-shareware
  370. (cat "WebPlug es Shareware.\n"
  371.      "El registro son solo $10, así que por favor\n"
  372.      "considera registrarte si lo usas.\n\n"
  373.      "Que lo disfrutes !"
  374. ))
  375.  
  376. ))
  377.  
  378. ;=============================================================================
  379. ; Italian strings
  380.  
  381. (if (= @language "italiano")
  382. (
  383. (set default_lang 8)
  384.  
  385. (set #low-user-level
  386. (cat "\nWebPlug installation requires at least the \"Average\" user level.\n\n"
  387.      "Restart installation and select appropriate user level."
  388. ))
  389.  
  390. (set #ask-upgrade
  391. (cat "\nIs this a new installation or\n"
  392.      "an upgrade?\n\n"
  393.      "A reinstallation is equal an upgrade"
  394. ))
  395.  
  396. (set #upgr-choice-upgr
  397. (cat "An upgrade"
  398. ))
  399.  
  400. (set #upgr-choice-new
  401. (cat "New installation"
  402. ))
  403.  
  404. (set #which-oldfile
  405. (cat "\nWhere is the programme WebPlug?\n(The programme, NOT the directory WebPlug)\n"
  406. ))
  407.  
  408. (set #mess-oldinstaller1
  409. (cat "\nYou are using an old version\nof the Installer programme. (%ld.%ld)\n\n"
  410. ))
  411.  
  412. (set #mess-oldinstaller2
  413. (cat "Please use the included Installer"
  414. ))
  415.  
  416. (set #mess-obsoletekick
  417. (cat "WebPlug requires AmigaDOS version 2.0 or higher\nVersion 3.0+ is strongly recommended."
  418. ))
  419.  
  420. (set #mess-nomui
  421. (cat "\nWebPlug requires MUI.\nNo muimaster.library is found.\n\n"
  422.      "Sorry, can not continue the installation"
  423. ))
  424.  
  425. (set #mess-oldmui
  426. (cat "\nWebPlug requires MUI version 3.2 or higher.\n\n"
  427.      "That means muimaster.library ver 13.686\n"
  428.      "You have version %ld.%ld\n\n"
  429.      "Sorry, can not continue the installation"
  430. ))
  431.  
  432. (set #which-directory
  433. (cat "Where do you want to install WebPlug ?\n(A drawer named \"WebPlug\" WILL be created)"
  434. ))
  435.  
  436. (set #confirm-adddocs
  437. (cat "\n\nWould you like to install the (HTML) documentation?"
  438. ))
  439.  
  440. (set #confirm-custom-dirs
  441. (cat "\n\nWould you like to install the CustomTags and CustomStrings directories?"
  442. ))
  443.  
  444. (set #which-language
  445. (cat "\nWhich languages should be installed?\n(english is built-in)"
  446. ))
  447.  
  448. (set #prompt-makemaindir
  449. (cat "Going to create WebPlug's dir"
  450. ))
  451.  
  452. (set #prompt-copybrowserlinks
  453. (cat "Going to copy the BrowserLinks dir"
  454. ))
  455.  
  456. (set #prompt-adddocs
  457. (cat "Going to copy the (HTML) documentation"
  458. ))
  459.  
  460. (set #prompt-textfieldgadgetKS3
  461. (cat "About to install the Textfield.gadget (OS v3.0+)"
  462. ))
  463.  
  464. (set #prompt-textfieldgadgetKS2
  465. (cat "About to install the Textfield.gadget (OS v2.0+)"
  466. ))
  467.  
  468. (set #prompt-customtags
  469. (cat "About to install the CustomTags directory"
  470. ))
  471.  
  472. (set #prompt-customstrings
  473. (cat "About to install the CustomStrings directory"
  474. ))
  475.  
  476. (set #prompt-executable
  477. (cat "Going to copy WebPlug's executable"
  478. ))
  479.  
  480. (set #mess-congra
  481. (cat "\nCongratulations, WebPlug is now installed.\n\n"
  482. ))
  483.  
  484. (set #mess-docsfound
  485. (cat "The documentation is in html format and\n"
  486.      "can be found in the directory \"%s\"\n"
  487.      "Please used your favorite browser to read it.\n"
  488.      "Start with the document \"WebPlug.html\"\n\n"
  489. ))
  490.  
  491. (set #mess-shareware
  492. (cat "WebPlug is released as Shareware.\n"
  493.      "The fee is only $10, so please consider\n"
  494.      "registering it if you use it.\n\n"
  495.      "Enjoy!"
  496. ))
  497.  
  498. ))
  499.  
  500. ;=============================================================================
  501. ; Portuguese strings
  502.  
  503. (if (= @language "português")
  504. (
  505. (set default_lang 16)
  506.  
  507. (set #low-user-level
  508. (cat "\nWebPlug installation requires at least the \"Average\" user level.\n\n"
  509.      "Restart installation and select appropriate user level."
  510. ))
  511.  
  512. (set #ask-upgrade
  513. (cat "\nIs this a new installation or\n"
  514.      "an upgrade?\n\n"
  515.      "A reinstallation is equal an upgrade"
  516. ))
  517.  
  518. (set #upgr-choice-upgr
  519. (cat "An upgrade"
  520. ))
  521.  
  522. (set #upgr-choice-new
  523. (cat "New installation"
  524. ))
  525.  
  526. (set #which-oldfile
  527. (cat "\nWhere is the programme WebPlug?\n(The programme, NOT the directory WebPlug)\n"
  528. ))
  529.  
  530. (set #mess-oldinstaller1
  531. (cat "\nYou are using an old version\nof the Installer programme. (%ld.%ld)\n\n"
  532. ))
  533.  
  534. (set #mess-oldinstaller2
  535. (cat "Please use the included Installer"
  536. ))
  537.  
  538. (set #mess-obsoletekick
  539. (cat "WebPlug requires AmigaDOS version 2.0 or higher\nVersion 3.0+ is strongly recommended."
  540. ))
  541.  
  542. (set #mess-nomui
  543. (cat "\nWebPlug requires MUI.\nNo muimaster.library is found.\n\n"
  544.      "Sorry, can not continue the installation"
  545. ))
  546.  
  547. (set #mess-oldmui
  548. (cat "\nWebPlug requires MUI version 3.2 or higher.\n\n"
  549.      "That means muimaster.library ver 13.686\n"
  550.      "You have version %ld.%ld\n\n"
  551.      "Sorry, can not continue the installation"
  552. ))
  553.  
  554. (set #which-directory
  555. (cat "Where do you want to install WebPlug ?\n(A drawer named \"WebPlug\" WILL be created)"
  556. ))
  557.  
  558. (set #confirm-adddocs
  559. (cat "\n\nWould you like to install the (HTML) documentation?"
  560. ))
  561.  
  562. ;NEW_1.2!!!
  563. (set #confirm-custom-dirs
  564. (cat "\n\nWould you like to install the CustomTags and CustomStrings directories?"
  565. ))
  566.  
  567. (set #which-language
  568. (cat "\nWhich languages should be installed?\n(english is built-in)"
  569. ))
  570.  
  571. (set #prompt-makemaindir
  572. (cat "Going to create WebPlug's dir"
  573. ))
  574.  
  575. (set #prompt-copybrowserlinks
  576. (cat "Going to copy the BrowserLinks dir"
  577. ))
  578.  
  579. (set #prompt-adddocs
  580. (cat "Going to copy the (HTML) documentation"
  581. ))
  582.  
  583. (set #prompt-textfieldgadgetKS3
  584. (cat "About to install the Textfield.gadget (OS v3.0+)"
  585. ))
  586.  
  587. (set #prompt-textfieldgadgetKS2
  588. (cat "About to install the Textfield.gadget (OS v2.0+)"
  589. ))
  590.  
  591. ;NEW_1.2!!!
  592. (set #prompt-customtags
  593. (cat "About to install the CustomTags directory"
  594. ))
  595.  
  596. ;NEW_1.2!!!
  597. (set #prompt-customstrings
  598. (cat "About to install the CustomStrings directory"
  599. ))
  600.  
  601. (set #prompt-executable
  602. (cat "Going to copy WebPlug's executable"
  603. ))
  604.  
  605. (set #mess-congra
  606. (cat "\nCongratulations, WebPlug is now installed.\n\n"
  607. ))
  608.  
  609. (set #mess-docsfound
  610. (cat "The documentation is in html format and\n"
  611.      "can be found in the directory \"%s\"\n"
  612.      "Please used your favorite browser to read it.\n"
  613.      "Start with the document \"WebPlug.html\"\n\n"
  614. ))
  615.  
  616. (set #mess-shareware
  617. (cat "WebPlug is released as Shareware.\n"
  618.      "The fee is only $10, so please consider\n"
  619.      "registering it if you use it.\n\n"
  620.      "Enjoy!"
  621. ))
  622.  
  623. ))
  624.  
  625. ;=============================================================================
  626. ; Swedish strings
  627.  
  628. (if (= @language "svenska")
  629. (
  630. (set default_lang 32)
  631.  
  632. (set #low-user-level
  633. (cat "\nWebPlug installation kräver minst användarnivån \"Erfaren användare\".\n\n"
  634.      "Starta om installationen och välj en mer passande användarnivå."
  635. ))
  636.  
  637. (set #ask-upgrade
  638. (cat "\nSkall du installera för första gången eller\n"
  639.      "uppgradera för en äldre version?\n\n"
  640.      "En ominstallering av ny version är samma sak som uppgradering"
  641. ))
  642.  
  643. (set #upgr-choice-upgr
  644. (cat "Uppgradering"
  645. ))
  646.  
  647. (set #upgr-choice-new
  648. (cat "Ny installering"
  649. ))
  650.  
  651. (set #which-oldfile
  652. (cat "\nVar finns programmet WebPlug?\n(Observera programmet och inte bara lådan)\n"
  653. ))
  654.  
  655. (set #mess-oldinstaller1
  656. (cat "\nDu använder en gammal version\nav programmet Installer. (%ld.%ld)\n\n"
  657. ))
  658.  
  659. (set #mess-oldinstaller2
  660. (cat "Vänligen använd den Installer som medföljer."
  661. ))
  662.  
  663. (set #mess-obsoletekick
  664. (cat "WebPlug kräver AmigaDOS version 2.0 eller högre\nVersion 3.0+ rekommenderas kraftigt."
  665. ))
  666.  
  667. (set #mess-nomui
  668. (cat "\nWebPlug kräver MUI.\nmuimaster.library kan ej hittas.\n\n"
  669.      "Ledsen, men kan ej fortsätta installationen"
  670. ))
  671.  
  672. (set #mess-oldmui
  673. (cat "\nWebPlug kräver MUI version 3.2 eller högre.\n\n"
  674.      "Mer exakt muimaster.library ver 13.686\n"
  675.      "Du har version %ld.%ld\n\n"
  676.      "Ledsen, men kan ej fortsätta installationen"
  677. ))
  678.  
  679. (set #which-directory
  680. (cat "\nVar vill du installera WebPlug?\n(En låda med namnet \"WebPlug\" kommer att skapas)\n"
  681. ))
  682.  
  683. (set #confirm-adddocs
  684. (cat "\n\nVill du installera dokumentationen?\n"
  685.      "All dokumentation är i HTML-format."
  686. ))
  687.  
  688. (set #confirm-custom-dirs
  689. (cat "\n\nVill du installera katalogerna CustomTags och CustomStrings?"
  690. ))
  691.  
  692. (set #which-language
  693. (cat "\nVilka språk skall installeras?"
  694. ))
  695.  
  696. (set #prompt-makemaindir
  697. (cat "\nSkapar huvudkatalogen för WebPlug"
  698. ))
  699.  
  700. (set #prompt-copybrowserlinks
  701. (cat "\nInstallerar BrowserLinks katalogen"
  702. ))
  703.  
  704. (set #prompt-adddocs
  705. (cat "\nInstallerar dokumentation"
  706. ))
  707.  
  708. (set #prompt-textfieldgadgetKS3
  709. (cat "Installerar Textfield.gadget (OS v3.0+)"
  710. ))
  711.  
  712. (set #prompt-textfieldgadgetKS2
  713. (cat "Installerar Textfield.gadget (OS v2.0+)"
  714. ))
  715.  
  716. (set #prompt-customtags
  717. (cat "Installerar katalogen CustomTags"
  718. ))
  719.  
  720. (set #prompt-customstrings
  721. (cat "Installerar katalogen CustomStrings"
  722. ))
  723.  
  724. (set #prompt-executable
  725. (cat "Installerar WebPlugs exekverbara fil"
  726. ))
  727.  
  728. (set #mess-congra
  729. (cat "\nGratulerar, WebPlug är installerad.\n\n"
  730. ))
  731.  
  732. (set #mess-docsfound
  733. (cat "Dokumentationen är i HTML-format och\n"
  734.      "går att finna i katalogen \"%s\"\n"
  735.      "Vänligen använd din favoritbrowser för att läsa den.\n"
  736.      "Börja med dokumentet \"WebPlug.html\"\n\n"
  737. ))
  738.  
  739. (set #mess-shareware
  740. (cat "WebPlug är släppt som Shareware.\n"
  741.      "Avgiften är endast $10, så överväg att\n"
  742.      "registrera programmet om du använder det.\n\n"
  743.      "Lycka Till!"
  744. ))
  745.  
  746. ))
  747.  
  748. ;=============================================================================
  749. ; procedure to copy the language catalogs
  750.  
  751. (procedure P_InstLocale
  752. (
  753.     (set n 0)
  754.     (while (set #language (select n "català"
  755.                 "english"
  756.                 "español"
  757.                 "italiano"
  758.                 "português"
  759.                 "svenska"
  760.                 "norsk"
  761.                 "deutsch"
  762.                 ""
  763.    ))
  764.     (
  765.    (if (IN #locales n)
  766.    (
  767.    ;; The english language is built in. No need to install it
  768.       (if (<> 1 n)
  769.       (
  770.           (copyfiles
  771.          (source (tackon "/bin/locale/catalogs/" #language))
  772.          (dest (tackon "LOCALE:Catalogs" #language))
  773.          (all)
  774.    )))))
  775.    (set n (+ n 1))
  776. ))))
  777.  
  778. ;========================================================
  779. ; check user-level
  780.  
  781. (if (< @user-level 1)
  782.     (abort (#low-user-level @app-name))
  783. )
  784.  
  785. ;========================================================
  786. ; variable setup
  787.  
  788. (set #installver (/ @installer-version 65536))
  789. (set #installrev (- @installer-version (* #installver 65536)))
  790. (set #tempversion (getversion))
  791. (set #osversion (/ #tempversion 65536))
  792. (set #osrevision (- #tempversion (* #osversion 65536)))
  793. (set #adddocs 0)
  794. (set #frominstdir (pathonly @icon))
  795. (set #frominstdir (substr #frominstdir 0 (- (strlen #frominstdir) (strlen "/install"))))
  796.  
  797. ;========================================================
  798. ; check installer version
  799.  
  800. (if (< #installver 43)
  801.     (
  802.      (abort (#mess-oldinstaller1 #installver #installrev)
  803.              #mess-oldinstaller2)
  804. ))
  805.  
  806. ;========================================================
  807. ; check kickstart version
  808.  
  809. (if (< #osversion 37)
  810.     (
  811.      (abort #mess-obsoletekick)
  812. ))
  813.  
  814. ;========================================================
  815. ; check mui (MUI 3.2 = muimaster.library V13.686)
  816.  
  817. (if (= (exists "LIBS:muimaster.library" (noreq)) 1)
  818.     (
  819.      (set #tempver (getversion "LIBS:muimaster.library"))
  820.      (set #muiver (/ #tempver 65536))
  821.      (set #muirev (- #tempver (* #muiver 65536)))
  822.      (if (< #muiver 13)
  823.     (
  824.      (abort (#mess-oldmui #muiver #muirev))
  825.      )))
  826.   ((abort #mess-nomui))
  827. )
  828.  
  829. ;=============================================================================
  830. ; ask new install or upgrade
  831.  
  832. (set #b-upgrade
  833.    (askbool
  834.       (prompt #ask-upgrade)
  835.       (help @askbool-help)
  836.       (choices #upgr-choice-upgr #upgr-choice-new)
  837.    )
  838. )
  839.  
  840. ;=============================================================================
  841. ; where should WebPlug be installed
  842.  
  843. (if (= (exists "Work:" (noreq)) 2)
  844.     (set #def-dest "Work:")
  845.     (set #def-dest "SYS:")
  846.     )
  847.  
  848. ;-----------------------------------------------
  849. ; if upgrade, where is the old program?
  850.  
  851. (if (= 1 #b-upgrade)
  852. (
  853.     (set #oldprogfile
  854.    (askfile
  855.        (prompt #which-oldfile)
  856.        (help @askdir-help)
  857.        (default #def-dest)
  858.    )
  859.     )
  860.     (set #directory (pathonly (#oldprogfile)))
  861.  
  862.     ;; If Docs directory exists, new documentation will be installed!
  863.     (if (= (exists (tackon #directory "Docs") (noreq)) 2)
  864.    (set #adddocs 1)
  865.     )
  866. )
  867.  
  868. ;-----------------------------------------------
  869. ; else new install
  870.  
  871. ((set #directory
  872.    (askdir
  873.        (prompt #which-directory)
  874.        (help @askdir-help)
  875.        (default #def-dest)
  876. ))))
  877. (complete 10)
  878.  
  879. ;=============================================================================
  880. ; should documentation be installed?
  881.  
  882. (if (OR (= #adddocs 0) (= @user-level 2))
  883. (
  884.     (set #adddocs
  885.    (askbool
  886.        (prompt #confirm-adddocs)
  887.        (help @askbool-help)
  888.        (default 1)
  889.     ))
  890. ))
  891. (complete 20)
  892.  
  893. ;=============================================================================
  894. ; should CustomTags and CustomStrins directories be installed?
  895.  
  896. (
  897.    (set #addcustom
  898.    (askbool
  899.        (prompt #confirm-custom-dirs)
  900.        (help @askbool-help)
  901.        (default 1)
  902.     ))
  903. )
  904. (complete 20)
  905.  
  906. ;=============================================================================
  907. ; which languages should be installed? Only usefull for WB2.1 or higher
  908.  
  909. (set #locales
  910.    (askoptions
  911.       (prompt #which-language)
  912.       (help @askoptions-help)
  913.       (choices
  914.                       "Català"
  915.                       "English"
  916.                       "Español"
  917.                       "Italiano"
  918.                       "Português"
  919.                       "Svenska"
  920.                       "Norsk"
  921.                       "Deutsch"
  922.                  )
  923.       (default default_lang)
  924.    )
  925. )
  926. (complete 30)
  927.  
  928. ;=============================================================================
  929. ; if new installation create the main directory
  930.  
  931. (if (= 0 #b-upgrade)
  932. (
  933.    (set @default-dest (tackon #directory "WebPlug"))
  934.    (makedir
  935.     (@default-dest)
  936.     (prompt #prompt-makemaindir)
  937.     (help @makedir-help)
  938.     (infos)
  939.    )
  940.    (complete 40)
  941. )
  942. ;-----------------------------------------------
  943. ; else just set @default-dest
  944.  
  945.     (set @default-dest #directory)
  946. )
  947. (complete 50)
  948.  
  949. ;=============================================================================
  950. ; copy the BrowserLinks directory
  951.  
  952. (copyfiles
  953.    (source "/bin/BrowserLinks")
  954.    (dest (tackon @default-dest "BrowserLinks"))
  955.    (prompt #prompt-copybrowserlinks)
  956.    (all)
  957.    (help @copyfiles-help)
  958. )
  959. (complete 60)
  960. ;=============================================================================
  961. ; copy the (HTML) documentation
  962. (set #docs-dest (tackon @default-dest "Docs"))
  963.  
  964. (if (= 1 #adddocs)
  965.    (copyfiles
  966.       (source "/docs")
  967.       (dest #docs-dest)
  968.       (prompt #prompt-adddocs)
  969.       (help @copyfiles-help)
  970.       (all) 
  971.    )
  972. )
  973. (complete 70)
  974. ;=============================================================================
  975. ; copy the CustomTags and CustomStrins directories
  976. (set #docs-dest (tackon @default-dest "Docs"))
  977.  
  978. (if (= 1 #adddocs)
  979.   (
  980.    (copyfiles
  981.       (source "/bin/CustomStrings")
  982.       (dest (tackon @default-dest "CustomStrings"))
  983.       (prompt #prompt-customstrings)
  984.       (all)
  985.       (infos)
  986.       (help @copyfiles-help)
  987.    )
  988.    (copyfiles
  989.       (source "/bin/CustomTags")
  990.       (dest (tackon @default-dest "CustomTags"))
  991.       (prompt #prompt-customstags)
  992.       (all)
  993.       (infos)
  994.       (help @copyfiles-help)
  995.    )
  996.   )
  997. )
  998. (complete 75)
  999. ;=============================================================================
  1000. ; install the proper Textfield.gadget SYS:Classes/Gadgets/Textfield.gadget
  1001.  
  1002. (if (>= #osversion 39)
  1003.    (copylib
  1004.       (source "/bin/classes/gadgets/textfield.gadget")
  1005.       (dest "SYS:Classes/Gadgets")
  1006.       (prompt #prompt-textfieldgadgetKS3)
  1007.    )
  1008.    (copylib
  1009.       (source "/bin/classes/gadgets/textfield.gadget")
  1010.       (dest (tackon @default-dest "gadgets"))
  1011.       (prompt #prompt-textfieldgadgetKS2)
  1012.    )
  1013. )
  1014. (complete 80)
  1015. ;=============================================================================
  1016. ; install executable files for WebPlug
  1017.  
  1018. (copyfiles
  1019.    (source "/bin/WebPlug")
  1020.    (dest @default-dest)
  1021.    (prompt #prompt-executable)
  1022.    (help @copyfiles-help)
  1023.    (infos)
  1024. )
  1025. (complete 90)
  1026.  
  1027. ;=============================================================================
  1028. ; procedure to copy the language catalogs
  1029.  
  1030. (P_InstLocale)
  1031. (complete 100)
  1032.  
  1033. ;=============================================================================
  1034. ; That's it!
  1035.  
  1036. (if (= 1 #adddocs)
  1037.    (set #exit-text (cat #mess-congra (#mess-docsfound #docs-dest) #mess-shareware))
  1038.    (set #exit-text (cat #mess-congra #mess-shareware) )
  1039. )
  1040.  
  1041. (exit (#exit-text) )
  1042.